十月十九 台北天氣稍涼

經過昨天運算完後,已經可以得知哪一天搭貓空的人數最多了~

但是這樣的方式實在是很累,有沒有一目了然的方式呢?

有的,我們來畫圖吧!!

我們先將資料中增加新的一行

day_sum[,3] = 1:7 ; colnames(day_sum)[3] = "number" #在第三行增加數字1到7並命名

然後我們將資料用plot的方式繪圖

plot(day_sum$number,day_sum$count,type = "o",col = "red" , main = "貓空每日乘客數" , xlab = "日期", ylab = "人數",lwd = 5)

type 是設定 圖表類型
col : 顏色設定
main : 標題
xlab : x軸名稱
ylab : y軸名稱
lwd : 線條大小

為了方便辦斷週一到週日,我們加上輔助線判斷。

分別在 x = 1 , 2 , 3 , 4 , 5 , 6 , 7 加上垂直線,並設定顏色寬度及線的種類。

abline(v=c(1:7),
       col = c("#3399ff", "#33ff33", "#330000","#3399ff", "#33ff33", "#330000"),
       lwd = 2,lty=2)

如何~是不是一目瞭然了呢~

原來~搭乘貓空的高峰是在週日!!!

以上就是今天的介紹~

End.